CodeMatch Detailed Report

CodeMatch Detailed Report
Version: 5.7.2 | Date: 08/27/16 | Time: 18:43:56

SCORE

SETTINGS

Compare file 1:	Z:\Zeidman Consulting\projects\DOS and CPM\code\CHM\CPM\1.3\CCP.asm
To file 2:	Z:\Zeidman Consulting\projects\DOS and CPM\code\CHM\CPM\1.3\CCP.asm
Links to results:	Matching Statements Matching Comments and Strings Matching Instruction Sequences Matching Identifiers Partially Matching Identifiers Score

RESULTS

Matching Statements
File1 Line#	File2 Line#	Statement
2	2	BIAS EQU 800H
8	8	FALSE EQU 8000H
9	9	TRUE EQU NOT FALSE
10	10	TESTING EQU FALSE
11	11	CCPLOC EQU BIAS
12	12	BDOSL EQU 900H+BIAS
15	15	IF TESTING
16	16	ORG 100H
17 309	17 309	MVI C, 0
18	18	TRAN EQU 81000H
19	19	TRANM EQU 1400H
22	22	IF NOT TESTING
23	23	ORG CCPLOC
24	24	TRAN EQU 100H
25	25	TRANM EQU $
28	28	JMP CCPSTART
31	31	DISKA EQU 0004H
32	32	BDOS EQU 0005H
33	33	BUFF EQU 0080H
34	34	FCB EQU 005CH
36	36	RCHARF EQU 1
37	37	PCHARF EQU 2
38	38	PBUFF EQU 9
39	39	RBUFF EQU 10
40	40	BREAKF EQU 11
41	41	LIFTF EQU 12
42	42	INITF EQU 13
43	43	SELF EQU 14
44	44	CPENF EQU 15
45	45	CLOSEF EQU 16
46	46	SEARF EQU 17
47	47	SEARNF EQU 18
48	48	DELF EQU 19
49	49	DREADF EQU 20
50	50	DWRITF EQU 21
51	51	MAKEF EQU 22
52	52	RENF EQU 23
53	53	LOGF EQU 24
54	54	CSELF EQU 25
55	55	DMAF EQU 26
57	57	CR EQU 13
58	58	LF EQU 10
59	59	LA EQU 5FH
60	60	EOFILE EQU 1AH
61	61	NDISKS EQU 2
64	64	PRINTCHAR: MOV E, A
64	64	MVI C, PCHARF
64 75 77 99 114 165 168 174	64 75 77 99 114 165 168 174	JMP BDOS
66	66	PRINTBC:
67 73 342	67 73 342	PUSH B
67 69 196 504	67 69 196 504	CALL PRINTCHAR
67 343 348	67 343 348	POP B
69	69	CRLF: MVI A, CR
70	70	MVI A, LF
70	70	JMP PRINTCHAR
72	72	PRINT:
73 191 200 356 439 492 627	73 191 200 356 439 492 627	CALL CRLF
73 523 536 594	73 523 536 594	POP D
73	73	MVI C, PGUFF
73	73	JMP SDOS
75	75	INITIALIZE: MVI C, INITF
77	77	SELECT: MOV E, A
77	77	MVI C, SELF
79	79	OPEN:
80	80	MVI C, OPENF
80 87 90 93 102 108 111 139 145 159 161	80 87 90 93 102 108 111 139 145 159 161	CALL BDOS
80 87 90 93	80 87 90 93	STA DCNT
80 87 90 93 349	80 87 90 93 349	INR A
82	82	OPENC:
83 179 231 417 499 570 614	83 179 231 417 499 570 614	XRA A
83 614	83 614	STA COMREC
84 96 105 482 522 535 543 574 601	84 96 105 482 522 535 543 574 601	LXI D, COMFCB
84	84	JMP OPEN
86	86	CLOSE:
87	87	MVI C, CLOSEF
89	89	SEARCH:
90	90	MVI C, SEARF
92	92	SEARCHN:
93	93	MVI C, SEARNF
95	95	SEARCHCOM:
96	96	JMP SEARCH
98	98	DELETE:
99	99	MVI C, DELF
101	101	DISKREAD:
102	102	MVI C, DREADF
102 108 123 126 138 149 160 162 177 195 207 220 238 296 331 362 418 422 514 566 589 618 622	102 108 123 126 138 149 160 162 177 195 207 220 238 296 331 362 418 422 514 566 589 618 622	ORA A
104	104	DISKREADC:
105	105	JMP DISKREAD
107	107	DISKWRITE:
108	108	MVI C, DWRITF
110	110	MAKE:
111	111	MVI C, MAKEF
111	111	STA DCHT
113	113	RENAM:
114	114	MVI C, RENF
116	116	TRANSLATE:
117	117	CPI 61H
118	118	CPI 78H
119	119	ANI 5FH
121	121	READCOM:
123	123	LDA SUBMIT
123 136	123 136	JZ NOSUB
126 138 181 424 629 633	126 138 181 424 629 633	LDA CDISK
126 228	126 228	MVI A, 0
126 138	126 138	CNZ SELECT
127	127	LDA SUBRC
127 419 423 509 590 608	127 419 423 509 590 608	DCR A
128	128	STA SUBCR
129 136 180 333	129 136 180 333	LXI D, SUBFCB
129 601	129 601	CALL DISKREAD
130	130	JNZ NOSUB
132	132	LXI D, COMLEN
132 414 502	132 414 502	LXI H, BUFF
132	132	MVI 8, 128
132 556 615	132 556 615	CALL MOVE0
135	135	LXI H, SUBRC
135 475	135 475	DCR M
136 543	136 543	CALL CLOSE
139	139	MVI C, PBUFF
139	139	LXI D, COMBUF
140 462 505	140 462 505	CALL BREAK$KEY
140	140	JZ NOREAD
141 200	141 200	CALL DEL$SUB
141 201 634 654	141 201 634 654	JMP CCP
143	143	NOSUB:
145	145	MVI C, RBUFF
145	145	LXI D, MAXLEN
146	146	NOREAD:
148 475	148 475	LXI H, COMLEN
148	148	MOV B, M
149	149	READCOM0: INX H
149 247 296 395 405 455 626	149 247 296 395 405 455 626	MOV A, B
150	150	JZ READCOM1
150 177 194 292 367 403 414 430 476 494 503 566 611 613	150 177 194 292 367 403 414 430 476 494 503 566 611 613	MOV A, M
151	151	CALL TRANSLATE
151 154 171 244 273 499	151 154 171 244 273 499	MOV M, A
151 186 287 324 410 434	151 186 287 324 410 434	DCR B
151	151	JMP READCOM0
153	153	READCOM1:
155 617	155 617	LXI H, COMBUF
155 288 478 561	155 288 478 561	SHLD COMADDR
158	158	BREAK$KEY:
159	159	MVI C, BREAKF
161	161	MVI C, RCHARF
164	164	LIFTHEAD:
165	165	MVI C, LIFTF
167	167	CSELECT:
168	168	MVI C, CSELF
170	170	MOVE:
171 207 220 238 240 320 593	171 207 220 238 240 320 593	LDAX D
171 186 221 240 248 261 267 273 279 316 409 624	171 186 221 240 248 261 267 273 279 316 409 624	INX D
171 186 253 269 282 316 324 367 392 404 409 476 478 561 619 624	171 186 253 269 282 316 324 367 392 404 409 476 478 561 619 624	INX H
171 400 404	171 400 404	DCR C
171	171	JNZ MOVE
173	173	SETDMA:
174	174	MVI C, DMAF
176	176	DEL$SUB:
177	177	LXI H, SUBMIT
178 287	178 287	MVI M, 0
179 346 591 633	179 346 591 633	CALL SELECT
180 482 522	180 482 522	CALL DELETE
181 424	181 424	JMP SELECT
183	183	SERIALIZE:
184	184	LXI D, SERIAL
184	184	LXI H, BDOSL
184	184	MVI B, 6
185	185	SER0: LDAX D
185 314 419 423	185 314 419 423	CMP M
185	185	JNZ BADSERIAL
186	186	JNZ SERB
189	189	COMERR:
192	192	LHLD STADDR
193	193	COMERR0:
194	194	CPI JZ COMERR1
195	195	JZ COMERR1
196 230 230 495 532 533 610	196 230 230 495 532 533 610	PUSH H
196 236 291 497 536 603 613	196 236 291 497 536 603 613	POP H
196	196	INK X
197	197	JMP COMERR0
198	198	COMERR1:
199 358 442 443	199 358 442 443	MVI A, CALL PRINTCHAR
206	206	DELIM:
208	208	CPI JC COMERR
211 560	211 560	CPI LA
219	219	DEBLANK:
221	221	JMP DEBLANK
223	223	ADDH:
224	224	ADD L
224 367 527	224 367 527	MOV L, A
225	225	IHR H
227	227	FILLFCB0:
230	230	FILLFCB: LXI H, COMFCB
230 414 502	230 414 502	CALL ADDH
231 247	231 247	STA SDISK
233 558	233 558	LHLD COMADDR
234 558	234 558	CALL DEBLANK
235	235	SHLD STADDR
238	238	JZ SETCUR0
239	239	SBI -1
239 400 565	239 400 565	MOV B, A
240	240	CPI JZ SETDSK
242	242	SETCUR:
243	243	DCX D
244	244	SETCUR0: LDA CDISK
244	244	JMP SETNAME
246	246	SETDSK:
248 568	248 568	MOV M, B
250	250	SETNAME:
251	251	MVI B, 8
252	252	SETNAM0: CALL DELIM
252	252	JZ PADNAME
253	253	CPI JNZ SET NAM1
254	254	MVI M, JMP SETNAM2
256	256	SETNAM1: MOV M, A
257	257	SETNAM2: DCR B
260	260	TRNAME: CALL DELIM
260	260	JZ SETTY
261	261	JMP TRNAME
263	263	PADNAME: INX H
263 282	263 282	MVI M, DCR B
263	263	JNZ PADNAME
265	265	SETTY:
266 286 408	266 286 408	MVI B, 3
266	266	CPI JNZ PADTY
268	268	SETTY0:
269 279	269 279	CALL DELIM
269	269	JZ PADTY
269	269	CPI JNZ SETTY1
270 479	270 479	MVI M,
272	272	SETTY1:
274	274	SETTY2:
275 316	275 316	DCR 0
275	275	JNZ SETTY0
278	278	TRTYP:
279	279	JZ EFILL
279	279	JMP TRTYP
281	281	PADTY:
282	282	JNZ PADTY
284	284	EFILL:
287	287	EFILL0: INX H
287	287	JNZ EFILL0
291 388	291 388	LXI B, 11
292	292	SCNQ: INX H
292	292	CPI JNZ SCNQ0
298	298	INTVEC:
304	304	INTLEN EQU ($-INTVEC)/4
305	305	SERIAL: DB 0, 0, 0, 0, 0
308	308	INTRINSIC:
309	309	LXI H, INTVEC
310	310	INTRIN0: MOV A, C
310	310	CPI INTLEN
312	312	LXI D, COMFCB+1
313	313	MVI B, 4
314	314	INTRIN1:LDAX D
315 324	315 324	JNZ INTRIN2
317	317	JNZ INTRIN1
320	320	CPI JNZ INTRIN3
321 345	321 345	MOV A, C
323	323	INTRIN2:
326	326	INTRIN3:
327	327	INR C
328	328	JMP INTRIN0
330	330	CHECKSUB:
331	331	JNZ SETSUB0
333	333	CALL OPEN
333	333	JZ SETSUB0
335	335	MVI A, 0FFH
335	335	JMP SETSUB
337	337	SETSUB0: XRA A
338	338	SETSUB: STA SUBMIT
341	341	CCPSTART:
342 355 632	342 355 632	LXI SP, STACK
342	342	PUSH 8
343	343	CALL INITIALIZE
352	352	CALL CHECKSUB
354	354	CCP:
357 441	357 441	CALL CSELECT
357 590	357 590	STA CDISK
357 441	357 441	ADI CALL PRINTCHAR
359 630	359 630	LXI D, BUFF
359 534 600 630	359 534 600 630	CALL SETDMA
360 474	360 474	CALL READCOM
360 428 488 519 550 563 610	360 428 488 519 550 563 610	CALL FILLFCB0
361	361	CNZ COMERR
362 418 422 514 551 589	362 418 422 514 551 589	LDA SDISK
362	362	JNZ USERFUNC
364	364	CALL INTRINSIC
365	365	LXI H, JMP TAB
366	366	MOV E, A
366	366	MVI D, 0
366 366 603	366 366 603	DAD D
367	367	MOV H, M
369	369	JMPTAB: DW DIRECT
370	370	DW ERASE
371	371	DW TYPE
372	372	DW SAVE
373	373	DW RENAME
374	374	DW USERFUNC
375	375	BADSERIAL: LXI H, DI OR (HLT $HL 0)
376	376	SHLD CCPLOC
376	376	LXI H, CCPLOC
379	379	READERR:
380	380	LXI B, RDMSG
380 384	380 384	JMP PRINT
381	381	RDMSG: DB
383	383	NOFILE:
384	384	LXI B, NOFMSG
385	385	NOFMSG: DB
387	387	CONVERT:
388 430	388 430	LXI H, COMFCB+1
390	390	CONV0: MOV A, M
390	390	CPI JZ CONV1
392	392	SUI CPI 10
392	392	JNC COMERR
393	393	MOV D, A
394	394	ANI 1110$0000B
394 488 514 520 550 653	394 488 514 520 550 653	JNZ COMERR
397 398	397 398	ADD B
397 398 399	397 398 399	JC COMERR
399	399	ADD D
400	400	JNZ CONV0
402	402	CONV1:
403 593	403 593	CPI JNZ COMERR
404	404	JNZ CONV1
407	407	MOVENAME:
409	409	MOVE0: MOV A, M
409 622	409 622	STAX D
410	410	JNZ MOVE0
413	413	ADDHCF:
414	414	ADD C
416	416	SETDISK:
417 570 611	417 570 611	STA COMFCB
419 423	419 423	LXI H, CDISK
421	421	RESETDISK:
427	427	DIRECT:
429 489 521 552 594	429 489 521 552 594	CALL SETDISK
431	431	CPI JNZ DIR1
433	433	MVI B, 11
434	434	DIR0: MVI M, INX H
434	434	JNZ DIR0
436	436	DIR1: CALL SEARCHCOM
437	437	CZ NOFILE
438	438	DIR2: JZ ENDIR
445	445	LDA DCNT
446	446	ANI 110$0000B
446	446	MOV C, A
448	448	MVI B, 1
449	449	DIR3: MOV A, B
449 452	449 452	CALL ADDHCF
451	451	CPI JNZ DIR4
452	452	MVI A, 9
453	453	MVI A, CMP M
453	453	JZ DIR5
454	454	DIR4: CALL PRINTBC
455 624	455 624	INR B
455	455	CPI 12
455	455	JNC DIR5
457	457	CPI 9
457	457	JNZ DIR3
459	459	MVI A, CALL PRINTBC
459	459	JMP DIR3
461	461	DIR5:
463	463	JNZ ENDIR
464	464	CALL SEARCHN
464	464	JMP DIR2
465	465	ENDIR:
466 483 575 578 582 641	466 483 575 578 582 641	JMP RET COM
469	469	ERASE: CALL FILLFCB0
470	470	CPI 11
471	471	JNZ ERASEFILE
473	473	LXI B, ERMSG
473 541 545 582 640	473 541 545 582 640	CALL PRINT
475	475	JNZ CCP
476	476	CPI JNZ CCP
479 556 615	479 556 615	LXI H, COMFCB
481	481	ERASEFILE: CALL SETDISK
485	485	ERMSG: DB
487	487	TYPE:
489 524 596	489 524 596	CALL OPENC
490	490	JZ TYPERR
492 494	492 494	LXI H, BPTR
492	492	MVI M, 255
493	493	TYPE0:
494	494	CPI 128
495	495	JC TYPE1
497	497	CALL DISKREADC
498	498	JNZ TYPEOF
500	500	TYPE1:
501	501	INR M
503	503	CPI EOFILE
503 509	503 509	JZ RETCOM
505	505	JNZ RETCOM
506	506	JMP TYPE0
508	508	TYPEOF:
510	510	CALL READERR
511	511	TYPERR: CALL RESETDISK
511 580 637	511 580 637	JMP COMERR
513	513	SAVE: CALL FILLFCB0
515	515	CALL CONVERT
522 594	522 594	PUSH D
523	523	CALL MAKE
525	525	JZ SAVERR
527	527	MVI H, 0
527	527	DAD H
528	528	LXI D, TRAN
529	529	SAVE0:
530 605	530 605	MOV A, H
530	530	ORA L
530	530	JZ SAVE1
531	531	DCX H
533	533	LXI H, 128
533	533	DAD C
535	535	CALL DISKWRITE
537	537	JNZ SAVERR
538	538	JMP SAVE0
540	540	SAVERR:
541	541	LXI B, FULLMSG
542	542	SAVE1:
544	544	JNZ SAVE2
545	545	LXI B, CLOSMSG
546	546	SAVE2: JMP RETCOM
547	547	FULLMSG: DB
548	548	CLOSMSG: DB
549	549	RENAME:
553 570	553 570	CALL SEARCHCOM
554	554	JNZ RENERR3
556	556	LXI D, COMFCB+16
556	556	MVI B, 16
559	559	CPI JZ REN1
560 563 568	560 563 568	JNZ RENERR2
561	561	REN1: XCHG
566 610	566 610	LXI H, SDISK
566	566	JZ REN2
568	568	CMP B
569	569	REN2: MOV M, B
571	571	JZ RENERR1
574	574	CALL RENAM
577	577	RENERR1:
578	578	CALL NOFILE
579	579	RENERR2:
580	580 609 637 647	CALL rESETDISK
581	581	RENERR3:
582	582	LXI B, RENMSG
583	583	RENMSG: DB
585	585	USERFUNC: CALL SERIALIZE
587 651	587 651	LDA COMFCB+1
587	587	CPI JNZ USER0
589	589	JZ ENDCOM
590 629	590 629	STA DISKA
591	591	JMP ENDCOM
592	592	USER0:
593	593	LXI D, COMFCB+9
594	594	LXI H, COMTYPE
595	595	CALL MOVENAME
596	596	JZ USERER
598	598	LXI H, TRAN
599	599	LOAD0: PUSH H
601	601	JNZ LOAD1
603	603	LXI D, 128
604	604	LXI D, TRANM
605	605	MOV A, L
605	605	SUB E
605	605	SBB D
605	605	JNC LOADERR
606	606	JMP LOAD0
608	608	LOAD1: POP H
608	608	JNZ LOADERR
609 637 647	580 609 637 647	CALL RESETDISK
612	612	MVI A,16
612	612	CALL FILLFCB
613	613	STA COMFCB+16
615	615	LXI D, FCB
615	615	MVI B, 33
618	618	BMOVE0: MOV A, M
618	618	JZ BMOVE1
618	618	CPI JZ BMOVE1
619	619	JMP BMOVE0
621	621	BMOVE1: MVI B, 0
621	621	LXI D, BUFF+1
622	622	BMOVE2: MOV A, M
622	622	JZ BMOVE3
624	624	JMP BMOVE2
625	625	BMOVE3:
626	626	STA BUFF
630	630	CALL LIFTHEAD
631	631	CALL TRAN
636	636	USERER:
639	639	LOADERR:
640	640	LXI B, LOADMSG
642	642	LOADMSG: DB
643	643	COMTYPE: DB
646	646	RETCOM:
649	649	ENDCOM:
650	650	CALL FILLFGB0
651	651	SUI LXI H, SDISK
651	651	ORA M
659 667	659 667	DS 16
660	660	STACK:
663	663	SUBMIT: DB 0
664	664	SUBFCB: DB 0,
665	665	DB , 0, 0, 0
666	666	SUBRC: DS 1
668	668	SUBCR: DS 1
671	671	COMFCB: DS 32
672	672	COMREC: DS 1
675	675	MAXLEN: DB 1 7
676	676	COMLEN: DB 0
677	677	COMBUF: DS 128
678	678	COMADDR:DS 2
679	679	STADDR: DS 2
681	681	DCNT: DS 1
682	682	CDISK: DS 1
683	683	SDISK: DS 1
685	685	SPTR: DS 1
686	686	END CCPLOC

Matching Comments and Strings
File1 Line#	File2 Line#	Comment/String
1	1	ASSEMBLY LANGUAGE VERSION OF THE CP/M CONSOLE COMMAND PROCESSOR
3	3	VERSION, 1.1 OCTOBER, 1976
5	5	COPYRIGHT (C) 1976
6	6	DIGITAL RESEARCH
10	10	TRUE IF DEBUGGING
11	11	BASE ADDRESS OF CCP
12	12	BASE OF DOS
18	18	TRANSIENT PROGRAM AREA BASE (TPA)
19	19	LAST TRANSIENT LOCATION + 1
29	29	COPYRIGHT (C) 1976, DIGITAL RESEARCH
31	31	DISK ADDRESS FOR CURRENT DISK
32	32	PRIMARY BDOS ENTRY POINT
33	33	DEFAULT BUFFER
34	34	DEFAULT FILE CONTROL BLOCK
36	36	READ CHARACTER FUNCTION
37	37	PRINT CHARACTER FUNCTION
38	38	PRINT BUFFER FUNCTION
39	39	READ BUFFER FUNCTION
40	40	BREAK KEY FUNCTION
41	41	LIFT HEAD FUNCTION, (SHUGART SA3900 ONLY)
42	42	INITIALIZE BDOS FUNCTION
43	43	SELECT DISK FUNCTION
44	44	OPEN FILE FUNCTION
45	45	CLOSE FILE FUNCTION
46	46	SEARCH FOR FILE FUNCTION
47	47	SEARCH FOR NEXT FILE FUNCTION
48	48	DELETE FILE FUNCTION
49	49	DISK READ FUNCTION
50	50	DISK WRITE FUNCTION
51	51	FILE MAKE FUNCTION
52	52	RENAME FILE FUNCTION
53	53	RETURN LOGIN VECTOR
54	54	RETURN CURRENTLY SELECTED DRIVE NUMBER
55	55	SET DMA ADDRESS
57	57	CARRIAGE RETURN
58	58	LINE FEED
59 211	59 211	LEFT ARROW
60	60	END OF FILE
61	61	NUMBER OF DISKS
63	63	UTILITY PROCEDURES
66	66	PRINT CHARACTER, BUT SAVE B,C REGISTERS
72	72	PRINT STRING STARTING AT B,C UNTIL NEXT DOLLAR SYMBOL
79	79	OPEN THE FILE GIVEN, BY D,E
82	82	OPEN COMFCB
83	83	CLEAR NEXT RECORD TO READ
86	86	CLOSE THE FILE GIVEN BY D,E
89	89	SEARCH FOR THE FILE GIVEN BY D,E
92	92	SEARCH FOR THE NEXT OCCURRENCE OF THE FILE GIVEN BY D,E
95	95	SEARCH FOR COMFCB FILE
98	98	DELETE THE FILE GIVEN BY D,E
101	101	READ THE NEXT RECORD FROM THE FILE GIVEN BY D,E
104	104	READ THE COMFCB FILE
107	107	WRITE THE NEXT RECORD TO THE FILE GIVEN BY D,E
110	110	CREATE THE FILE GIVEN BY D,E
113	113	RENAME THE FILE GIVEN BY D,E
116	116	TRANSLATE CHARACTER IN REGISTER A TO UPPER CASE
117	117	RETURN IF BELOW LOWER CASE A
118	118	RETURN IF ABOVE LOWER CASE Z
119	119	TRANSLATED TO UPPER CASE
121	121	READ THE NEXT COMMAND INTO THE COMMAND BUFFER
122	122	CHECK FOR SUBMIT FILE
124	124	SCANNING A SUBMIT FILE
125	125	CHANGE DRIVES TO OPEN AND READ THE FILE
127	127	READ LAST RECORD(S) FIRST
128 668	128 668	CURRENT RECORD TO READ
129	129	END OF FILE IF LAST RECORD
131	131	DISK READ IS OK, TRANSFER TO COMBUF
133	133	LINE IS TRANSFERRED, CLOSE THE FILE WITH A
134	134	DELETED RECORD
135	135	ONE LESS RECORD
137	137	CLOSE WENT OK, RETURN TO ORIGINAL DRIVE
141	141	BREAK KEY DEPRESSED
143	143	NO SUBMIT FILE! CALL DEL$SUB
144	144	TRANSLATE TO UPPER CASE, STORE ZERO AT END
146	146	ENTER HERE FROM SUBMIT FILE
147	147	SET THE LAST CHARACTER TO ZERO FOR LATER SCANS
148	148	LENGTH IS IN B
149	149	END OF SCAN?
150	150	GET CHARACTER AND TRANSLATE
153	153	END OF SCAN, H,L ADDRESS END OF COMMAND
154	154	STORE A ZERO
155	155	READY TO SCAN TO ZERO
158	158	CHECK FOR A CHARACTER READY AT THE CONSOLE
161	161	CHARACTER CLEARED
164	164	LIFT THE HEAD ON THE SA3900
167	167	GET THE CURRENTLY SELECTED DRIVE HUMBER TO REG-A
170	170	MOVE DATA FROM D, E TO H,L FOR C BYTES
173	173	SET DMA ADDRESS TO D,E
176	176	DELETE THE SUBMIT FILE, AND SET SUBMIT FLAG TO FALSE
177	177	RETURN IF NO SUB FILE
178	178	SUBMIT FLAG IS SET TO FALSE
179	179	ON DRIVE A TO ERASE FILE
181	181	BACK TO ORIGINAL DRIVE
183 585	183 585	CHECK SERIALIZATION
184	184	CHECK SIX BYTES
187	187	SERIAL NUMBER IS OK
189	189	ERROR IN, COMMAND STRING STARTING AT POSITION
190	190	'STADDR' AND ENDING WITH FIRST DELIMITER
191	191	SPACE TO NEXT LINE
192	192	H,L ADDRESS FIRST TO PRINT
193	193	PRINT CHARACTERS UNTIL BLANK OR ZERO
194	194	NOT BLANK
195	195	NOT ZERO, SO PRINT IT
197 506	197 506	FOR ANOTHER CHARACTER
198	198	PRINT QUESTION, MARK, AND DELETE SUB FILE
201	201	RESTART WITH NEXT COMMAND
203	203	FCB SCAN, AND FILL SUBROUTINE (ENTRY IS AT FILLFCB BELOW)
204	204	FILL THE COMFCB, INDEXED BY A (0 OR 16)
205	205	SUBROUTINES
206	206	LOOK FOR A DELIMITER
207	207	NOT THE LAST ELEMENT
208	208	NON GRAPHIC
209	209	TREAT BLANK AS DELIMITER
217	217	DELIMITER NOT FOUND
219	219	DEBLANK THE INPUT LINE
220	220	TREAT END OF LINE AS BLANK
223	223	ADD A TO H,L
227	227	EQUIVALENT TO FILLFCB(0)
230	230	FCB RESCANNED AT END
231	231	CLEAR SELECTED DISK (IN CASE A;...)
233	233	COMMAND ADDRESS IN D,E
234	234	TO FIRST NON-BLANK CHARACTER
235	235	IN CASE OF ERRORS
236	236	D,E HAS COMMAND, H, L HAS FCB ADDRESS
237	237	LOOK FOR PRECEDING FILE NAME A, B: ...
238	238	USE CURRENT DISK IF EMPTY COMMAND
239	239	DISK NAME HELD IN B IF : FOLLOWS
240	240	SET DISK NAME IF ,
242	242	SET CURRENT DISK
243	243	BACK TO FIRST CHARACTER OF COMMAND
246	246	SET DISK TO NAME IN REGISTER B
247	247	MARK AS DISK SELECTED
248	248	PAST THE ,
250	250	SET THE FILE NAME FIELD
251	251	FILE NAME LENGTH (MAX)
252	252	NOT A DELIMITER
253	253	MUST BE 7'S
254	254	TO DEC COUNT
256	256	STORE CHARACTER TO FCB! INX D
257	257	COUNT DOWN, LENGTH! JNZ SETNAM0
259	259	END OF NAME, TRUNCATE REMAINDER
260	260	SET TYPE FIELD IF DELIMITER
265	265	SET THE TYPE FIELD
266	266	SKIP THE TYPE FIELD IF NO
267	267	PAST THE , TO THE FILE TYPE FIELD
268	268	SET THE FIELD FROM THE COMMAND BUFFER
270	270	SINCE * SPECIFIED! JMP SETTY2
272	272	NOT A *, SO COPY TO TYPE FIELD
274	274	DECREMENT COUNT AND GO AGAIN
277	277	END OF TYPE FIELD, TRUNCATE
278	278	TRUNCATE TYPE FIELD
281	281	PAD THE TYPE FIELD WITH BLANKS
284	284	END OF THE FILENAME/FILETYPE FILL, SAVE COMMAND ADRESS
285	285	FILL THE REMAINING FIELDS FOR THE FCB
288	288	SET NEW STARTING POINT
290	290	RECOVER THE START ADDRESS OF THE FCB AND COUNT 7'$
291	291	B=0, C=8+3
293	293	? FOUND, COUNT IT IN, B! INR B
295	295	NUMBER OF ?'S IN C, MOVE TO A AND RETURN, WITH FLAGS
298	298	INTRINSIC FUNCTION, NAMES (ALL ARE FOUR CHARACTERS)
299	299	DIR
300	300	ERA
301	301	TYPE
302	302	SAVE
303	303	REN
304	304	INTRINSIC FUNCTION, LENGTH
308	308	LOOK FOR INTRINSIC FUNCTIONS (COMFCB HAS BEEN FILLED)
309	309	C COUNTS INTRINSICS AS SCANNED
310	310	DONE WITH SCAN?!! RNC
311	311	N0, MORE TO SCAN
312	312	BEGINNING OF NAME
313	313	LENGTH OF MATCH IS IN B
314	314	MATCH?
315	315	SKIP IF NO MATCH
317	317	LOOP WHILE MATCHING
319	319	COMPLETE MATCH ON NAME, CHECK FOR BLANK IN FCB
320	320	OTHERWISE MATCHED
321	321	WITH INTRINSIC NUMBER IN A
323	323	MISMATCH, MOVE TO END OF INTRINSIC
326	326	TRY NEXT INTRINSIC
327	327	TO NEXT INTRINSIC NUMBER
328	328	FOR ANOTHER ROUND
330	330	CHECK FOR A SUBMIT FILE (REGISTER A HAS DISK NAME)
331	331	CLEAR SUBMIT IF NOT DISK A
332	332	OPEN SUBMIT FILE - IF POSSIBLE
334	334	SUBMIT FILE OPENED, SET SUBMIT TO TRUE
337	337	CLEAR SUBMIT VARIABLE
341	341	ENTER HERE FROM BOOT LOADER
342	342	SAVE INITIAL DISK NUMBER
343	343	RECOVERED DISK NUMBER TO C
344	344	SAVE $ FLAG FROM INITIALIZATION, (00 IF NO $ FILE)
345	345	DISK NUMBER IN ACCUMULATOR
346	346	PROPER DISK IS SELECTED, NOW CHECK SUB FILES
347	347	RECOVER $ FILE FLAG FROM INITIALIZATION
348	348	ORIGINAL DISK NUMBER IS IN C
349	349	00 BECOMES 01, FF BECOMES 00! ORA C ;OR DISK NUMBER
350	350	ACCUMULATOR CONTAINS 00 IF ON DISK 0, AND $ FILE PRESENT
351	351	OTHERWISE, THE ACCUMULATOR CONTAINS A NON-ZERO VALUE
354	354	ENTER HERE ON EACH COMMAND OR ERROR CONDITION
356	356	PRINT D> PROMPT, WHERE D IS DISK NAME
359	359	DEFAULT DMA ADDRESS IS AT BUFF
361	361	THE NAME CANNOT BE AN AMBIGUOUS REFERENCE
363	363	CHECK FOR AN INTRINSIC FUNCTION
365	365	INDEX IS IN THE ACCUMULATOR
366	366	INDEX IN D,E
368	368	PC CHANGES TO THE PROPER INTRINSIC OR USER FUNCTION
369 427	369 427	DIRECTORY SEARCH
370	370	FILE ERASE
371	371	TYPE FILE
372	372	SAVE MEMORY IMAGE
373	373	FILE RENAME
374	374	USER-DEFINED FUNCTION
378	378	UTILITY SUBROUTINES FOR INTRINSIC HANDLERS
379	379	PRINT THE READ ERROR MESSAGE
381	381	READ ERROR$
383	383	PRINT NO FILE MESSAGE
385	385	NOT FOUND$
387	387	CONVERT THE BYTE VALUE IN COMFCB TO BINARY
388	388	(B=0, C=11)
389	389	VALUE ACCUMULATED IN B, C COUNTS NAME LENGTH TO ZER0
391	391	MORE TO SCAN, CONVERT CHAR TO BINARY AND ADD
392	392	VALID?
393	393	SAVE VALUE! MOV A,B ;MULT BY 10
395	395	RECOVER VALUE
398	398	8+2 = *10
399	399	+DIGIT
400	400	FOR ANOTHER DIGIT
402	402	END OF DIGITS, CHECK FOR ALL BLANKS
403	403	BLANKS?
405	405	RECOVER VALUE! RET
407	407	MOVE 3 CHARACTERS FROM H,L TO D,E ADDRESSES
413	413	BUFF + A + C TO H,L FOLLOWED BY FETCH
416	416	CHANGE DISKS FOR THIS COMMAND, IF REQUESTED
417	417	CLEAR DISK NAME FROM FCB
418	418	NO ACTION IF NOT SPECIFIED
419	419	ALREADY SELECTED
421	421	RETURN TO ORIGINAL DISK AFTER COMMAND
422	422	NO ACTION IF NOT SELECTED
423	423	SAME DISK
426	426	INDIVIDUAL INTRINSICS FOLLOW
428	428	COMFCB GETS FILE NAME
429	429	CHANGE DISK DRIVES IF REQUESTED
430	430	MAY BE EMPTY REQUEST
431	431	SKIP FILL OF ??? IF NOT 8LANK
432	432	SET COMFCB TO ALL ??? FOR CURRENT DISK
433	433	LENGTH OF FILL ????????,???
435	435	NOT A BLANK REQUEST, MUST BE IN COMFCB
436	436	FIRST ONE HAS BEEN FOUND
437	437	NOT FOUND MESSAGE
440	440	ANOTHER FCB FOUND, PRINT PROMPT
444	444	COMPUTE POSITION OF NAME IN BUFFER
445	445	GET THE LOCATION OF THE ELEMENT
447	447	C CONTAINS BASE INDEX INTO BUFF FOR DIR ENTRY
448	448	START WITH FIRST CHARACTER OF NAME
449	449	BUFF+A+C FETCHED
450	450	DELETE TRAILING BLANKS
451	451	CHECK FOR BLANK TYPE
452	452	FIRST CHAR OF TYPE
453	453	TERMINATE
454	454	CHAR PRINTED
456	456	CHECK FOR BREAK BETWEEN NAMES
457	457	FOR ANOTHER CHAR
458	458	PRINT A BLANK BETWEEN NAMES
461	461	END OF CURRENT ENTRY
462	462	CHECK FOR INTERRUPT AT KEYBOARD
463	463	ABORT DIRECTORY SEARCH
464	464	FOR ANOTHER ENTRY
465	465	END OF DIRECTORY SCAN
469	469	CANNOT BE ALL ???'S
472	472	ERASING ALL OF THE DISK
475	475	BAD INPUT
477	477	OK, ERASE THE ENTIRE DISKETTE
478	478	OTHERWISE ERROR AT RETCOM
485	485	ALL FILES (Y/N)?$
488	488	DON'T ALLOW ?'S IN FILE NAME
489 524	489 524	OPEN THE FILE
490	490	ZERO FLAG INDICATES NOT FOUND
491	491	FILE OPENED, READ 'TIL EOF
492	492	READ FIRST BUFFER
493	493	LOOP ON BPTR
494	494	END BUFFER
495	495	CARRY IF B, 1,...,127
496	496	READ ANOTHER BUFFER FULL
497	497	RECOVER ADDRESS CF BPTR
498	498	HARD END OF FILE
499	499	BPTR = 0
500	500	READ CHARACTER AT BPTR AND PRINT
501	501	BPTR = BPTR + 1
502	502	H,L ADDRESSES CHAR
505	505	ABORT IF BREAK
508	508	END OF FILE, CHECK FOR ERRORS
513	513	SHOULD BE NUMBER
514	514	CANNOT BE PREFIXED
515	515	RESULTING VALUE IN REGISTER A
516	516	SAVE IT FOR LATER
518	518	SHOULD BE FOLLOWED BY A FILE TO SAVE THE MEMORY IMAGE
520	520	CANNOT BE AMBIGUOUS
521	521	MAY BE A DISK CHANGE
522	522	EXISTING FILE REMOV
523	523	CREATE A NEW FILE ON DISK
525	525	NO DIRECTORY SPACE
526	526	#PAGES TO WRITE IS IN A, CHANGE TO #SECTORS
528	528	H,L IS SECTOR COUNT, D,E IS LOAD ADDRESS
529	529	CHECK FOR SECTOR COUNT ZERO
530	530	MAY BE COMPLETED
531	531	SECTOR COUNT = SECTOR COUNT - 1
532	532	SAVE IT FOR NEXT TIME AROUND
533	533	NEXT DMA ADDRESS SAVED
534	534	CURRENT DMA ADDRESS SET
536	536	DMA ADDRESS, SECTOR COUNT
537	537	MAY BE DISK FULL CASE
538 606	538 606	FOR ANOTHER SECTOR
540	540	MUST BE FULL DISK
542	542	END OF DUMP, CLOSE THE FILE
544	544	OTHERWISE CANNOT CLOSE FILE
547	547	NO SPACE$
548	548	CANNOT CLOSE$
549	549	RENAME A FILE ON A SPECIFIC DISK
550	550	MUST BE UNAMBIGUOUS
551	551	SAVE FOR LATER COMPARE
552	552	DISK SELECTED
553	553	IS NEW NAME ALREADY THERE?
555	555	FILE DOESN'T EXIST, MOVE TO SECOND HALF OF FCB
557	557	CHECK FOR = OR LEFT ARROW
559	559	OK IF =
561	561	PAST DELIMITER
562	562	PROPER DELIMITER FOUND
564	564	CHECK FOR DRIVE CONFLICT
565	565	PREVIOUS DRIVE NUMBER
567	567	DRIVE NAME WAS SPECIFIED, SAME ONE?
569	569	STORE THE NAME IN CASE DRIVES SWITCHED
570	570	IS OLD FILE THERE?
573	573	EVERYTHING IS OK, ;RENAME THE FILE
577	577	NO FILE ON DISK
579	579	AMBIGUOUS REFERENCE/NAME CONFLICT
581	581	FILE ALREADY EXISTS
583	583	FILE EXISTS$
586	586	LOAD USER FUNCTION, AND SET UP FOR EXECLUSION
588	588	NO FILE NAME, BUT MAY BE DISK SWITCH
589	589	NO DISK NAME IF 0
592	592	FILE NAME IS PRESENT
593	593	TYPE ' '
594 643	594 643	COM
595	595	FILE TYPE IS SET TO COM
597	597	FILE OPENED PROPERLY, READ IT INTO MEMORY
598	598	TRANSIENT PROGRAM BASE
599	599	SAVE DMA ADDRESS
602	602	SECTOR LOADED, SET NEW DMA ADDRESS AND COMPARE
604	604	HAS THE LOAD OVERFLOWED?
608	608	END FILE IS 1
609	609	BACK TO ORIGINAL DISK
611	611	DRIVE NUMBER SET
612	612	MOVE ENTIRE FCB TO MEMO
614	614	RECORD NUMBER SET TO ZERO
616	616	MOVE COMMAND LINE TO BUFF
619	619	FOR ANOTHER SCAN
620	620	FIRST BLANK POSITION FOUND
621	621	READV FOR THE MOVE
623	623	MORE TO MOVE
625	625	B HAS CHARACTER COUNT
628	628	NOW GO TO THE LOADED PROGRAM
629	629	CURRENT DISK AT DISKA
631	631	GONE TO THE LOADED PROGRAM
632	632	MAY COME BACK HERE
636	636	ARRIVE HERE ON COMMAND ERROR
639	639	CANNOT LOAD THE PROGRAM
642	642	LOAD ERROR$
643	643	FOR COM FILES
646	646	RESET DISK BEFORE END OF COMMAND CHECK
649	649	END OF INTRINSIC COMMAND
650	650	TO CHECK FOR GARBAGE AT END OF LINE
652	652	0 IN ACCUMULATOR IF NO DISK SELECTED, AND BLANK FCB
658	658	DATA AREAS
659	659	8 LEVEL STACK
662	662	'SUBMIT' FILE CONTROL BLOCK
663	663	00 IF NO SUBMIT FILE, FF IF SUBMITTING
664	664	$$$
664	664	F1LE NAME IS $$$
665	665	SUB
665	665	FILE TYPE IS SUB
666	666	RECORD COUNT FILED
667	667	DISK MAP
670	670	COMMAND FILE CONTROL BLOCK
671	671	FIELDS FILLED IN LATER
672	672	CURRENT RECORD TO READ/WRITE
674 677	674 677	COMMAND BUFFER
675	675	MAX BUFFER LENGTH
676	676	COMMAND LENGTH (FILLED IN BY DOS)
678	678	ADDRESS OF NEXT TO SCAN
679	679	STARTING ADDRESS OF CURRENT F1LLFCB REQUEST
681	681	DISK DIRECTORY COUNT (USED FOR ERROR CODES)
682	682	CURRENT DISK
683	683	SELECTED DISK FOR CURRENT OPERATION
684	684	NONE=0, A=1, B=2 ...
685	685	BUFFER POINTER

Matching Instruction Sequences
File1 Line#	File2 Line#	Number of matching instructions
2	2	876

Matching Identifiers
0000B	0004H	0005H	005CH	0080H	0FFH	10	100H
11	110	1110	12	128	13	14	1400H
15	16	17	18	19	1AH	20	21
22	23	24	25	255	26	32	33
5FH	61H	78H	8000H	800H	81000H	900H	ADDH
ADDHCF	BADSERIAL	BDOS	BDOSL	BIAS	BMOVE0	BMOVE1	BMOVE2
BMOVE3	BPTR	BREAK	BREAKF	BUFF	CCP	CCPLOC	CCPSTART
CDISK	CHECKSUB	CLOSE	CLOSEF	CLOSMSG	COM	COMADDR	COMBUF
COMERR	COMERR0	COMERR1	COMFCB	COMLEN	COMREC	COMTYPE	CONV0
CONV1	CONVERT	CPENF	CR	CRLF	CSELECT	CSELF	DCHT
DCNT	DEBLANK	DEL	DELETE	DELF	DELIM	DIR0	DIR1
DIR2	DIR3	DIR4	DIR5	DIRECT	DISKA	DISKREAD	DISKREADC
DISKWRITE	DMAF	DREADF	DWRITF	EFILL	EFILL0	ENDCOM	ENDIR
EOFILE	ERASE	ERASEFILE	ERMSG	FALSE	FCB	FILLFCB	FILLFCB0
FILLFGB0	FULLMSG	HL	HLT	IHR	INITF	INITIALIZE	INK
INTLEN	INTRIN0	INTRIN1	INTRIN2	INTRIN3	INTRINSIC	INTVEC	JMPTAB
KEY	LA	LF	LIFTF	LIFTHEAD	LOAD0	LOAD1	LOADERR
LOADMSG	LOGF	MAKE	MAKEF	MAXLEN	MOVE	MOVE0	MOVENAME
NAM1	NDISKS	NOFILE	NOFMSG	NOREAD	NOSUB	OPEN	OPENC
OPENF	PADNAME	PADTY	PBUFF	PCHARF	PGUFF	PRINT	PRINTBC
PRINTCHAR	RBUFF	RCHARF	RDMSG	READCOM	READCOM0	READCOM1	READERR
REN1	REN2	RENAM	RENAME	RENERR1	RENERR2	RENERR3	RENF
RENMSG	RESETDISK	RETCOM	SAVE	SAVE0	SAVE1	SAVE2	SAVERR
SCNQ	SCNQ0	SDISK	SDOS	SEARCH	SEARCHCOM	SEARCHN	SEARF
SEARNF	SELECT	SELF	SER0	SERB	SERIAL	SERIALIZE	SETCUR
SETCUR0	SETDISK	SETDMA	SETDSK	SETNAM0	SETNAM1	SETNAM2	SETNAME
SETSUB	SETSUB0	SETTY	SETTY0	SETTY1	SETTY2	SPTR	STACK
STADDR	SUBCR	SUBFCB	SUBMIT	SUBRC	TAB	TESTING	TRAN
TRANM	TRANSLATE	TRNAME	TRTYP	TRUE	TYPE	TYPE0	TYPE1
TYPEOF	TYPERR	USER0	USERER	USERFUNC

Partially Matching Identifiers
* NONE *

SCORE 100